' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '   -   U N U S E D   V A R S   T E S T E R   - 
 
 ' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 
 
 V a r i a b l e   N u m e r i c   M o v e R i g h t M 0 
 
 V a r i a b l e   N u m e r i c   M o v e R i g h t M 0 
 
 V a r i a b l e   N u m e r i c   N u m T e s t 
 
 V a r i a b l e   N u m e r i c   N u m C y c l e s 
 
 
 
 V a r i a b l e   N u m e r i c   C o o r d _ Z         '   C o o r d _ X R 
 
 V a r i a b l e   N u m e r i c   C o o r d _ A 
 
 V a r i a b l e   N u m e r i c   C o o r d _ X P 
 
 V a r i a b l e   N u m e r i c   C o o r d _ X R 
 
 
 
 K e y   R i g h t 	 	 G o s u b   M o v e R i g h t M 0 
 
 K e y   L e f t   	 	 G o s u b   M o v e L e f t M 0 
 
 K e y   U p   	 	 	 G o s u b   M o v e R i g h t M 1 
 
 
 
 S t o p           '   C o o r d _ X R 
 
 
 
 v 1   =   C o o r d _ Z   +   C o o r d _ A   -   C o o r d _ X P   -   C o o r d _ X R 
 
 
 
 '   = = = = = = = = = = = = = = =     P   I   N         T   E   S   T     = = = = = =   C o o r d _ A   = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   " S T A R T _ T E S T " 
 
 	 S a v e   S t r i n g T o F i l e   " - = - = - = - S T A R T - = - = - = - "   s 2 
 
 	 N u m T e s t   =   I n p u t   " T e l l   m e   h o w   m a n y   c y c l e : " 
 
 	 N u m C y c l e s   =   0 
 
 	 L a b e l   L o o p T e s t 
 
 	 	 N u m C y c l e s   =   N u m C y c l e s   +   1 
 
 	 	 I f   N u m C y c l e s   >   N u m T e s t 
 
 	 	 	 R e t u r n 
 
 	 	 E n d I f 
 
 	 	 s 1   =   N o w 
 
 	 	 s 1   =   s 1   +   "   "   +   F o r m a t ( N u m C y c l e s ,   " 0 0 0 " )   +   "   "   +   R e s u l t 
 
 	 	 P r i n t   s 1 
 
 	 G o t o   L o o p T e s t 
 
 R e t u r n 
 
 
 
 L a b e l   M o v e R i g h t M 0 
 
 	 L a b e l   " M o v e L e f t M 0 " 
 
 	 	 L a b e l   " M o v e R i g h t M 1 " 
 
 	 	 	 
 
 
 
 ' W A T C H   S l o t M o t o r 
 
 ' W A T C H   A b s ( S l o t ( S l o t M o t o r ) ) 
 
 ' W A T C H   n 1 2 3 4 5 
 
 ' W A T C H   s 1 2 3 4 5 
 
 ' W A T C H   v 1 
 
 ' W A T C H   3 2 3 
 
 ' W A T C H   v 1 
 
 ' W A T C H   s 1 
 
 ' W A T C H   s t r 
 
 ' W A T C H   S i n 2 
 
 ' E X E C   S i n 2   =   S i n ( 3 3 ) 
 
 